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*eF 1LE®* 1 Dee CLUMBX 9 
cccccccc =k UU UU MM MM BBBBBBBB XX XX 
cccccccc =k UU UU MM MM BBBBBBBB XX XX 

cc LL UU UU MMMM MMMM BB BB Xx XX 
cc LL UU UU MMMM MMMM BB BB XX XX 
cc LL UU MM MM 6BB BB XX XK 
cc LL UU UU MM MM MM «OBB BB XX XK 
CC LL UU UU MM MM BBBBBBBB XX 
cc LL UU UU MM MM B8BBBBBBB XX 
cc LL UU UU MM MM BB XX = XK 
cc LL UU UU MM MM 6BB BB XX = XX 
cc LL UU UU MM MM BB BB XX XX cose 
cc LL UU UU MM MM BB BB XX XX eeee 
CCCCCCCC LLLLLLLLLL )§=UUUUUUUUUU MM MM BBBBBBBB XX xx cece 
CCCCCCCC  LLLLLLLLLE §=UUUUUUUUUU OM MM BBBBBBBB XX XX cove 
LL 1111] SSSSSSSS 
LL 11111 SSSSSSSS 
LL I] S$ 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL IIIII] SSSSSSSS 
LLLLLLLLLL HII] SSSSSSSS 
! 
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OPCSCLUMBX 1§- -Sep-1984 01:19: 4° VAX-11 Bliss-32 V4.0-742 1 
| er 8ee- 1382 13:50:86 DISK SVMSMASTER-COPCOM.SRCICLUMBX.B32:1°° (1) 
ey 001 0 MODULE OPCSCLUMBX ( 

; ¢ 00 LANGUAGE (BLISS32), 

: B08 IDENT = ‘*V04-000' 

on @ 0008 a 

: 6 0006 (eee eeeeeReKeReeeeeeeeeeeeeeeeeeeeetreerKeeeetreereneeKeeeeKereeeeKeeeeeeeest 
; 7? 0007 0 !« 

: 8 0008 QO '* COPYRIGHT (c) 1978, 1980, 1982, 1984 * 
3 g 0009 QO !* DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. * 
; 19 baie 8 2 ALL RIGHTS RESERVED. * 
3 it & 
; \¢ Bote § '® THIS SOFTWARE +e FURNISHED UNDER A LICENSE AND MAY BE ySE® AND COPIED * 
: 1 001 't ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; 14 0014 Q !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
: 15 0015 0 '* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ¥ 
: 16 0016 0 '* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY . 
$ i Bote 8 .* TRANSFERRED. ° 
7 ee ® 
; 19 0019 O '* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: 20 0020 0 '!* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 8 
: 21 0021 Q !* CORPORATION. sd 
> @ 4 QO !* * 
3 23 0023 0 != DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: ra) 00246 0 '* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; £2 0025 0 !* * 
; 0026 0 !* * 
: 27 0027 OC !eeeeeeeerererererereererereeeeeeeerererreererererereeeeeeeeteeeeereeereneee 
; 0028 0 

; 2 0029 0 !++ 

; 30 0030 QO ! FACILITY: 

; 2 0031 0! 

ws Oo8¢ 0! OPCOM 

ee 0033 0! 

; 0034 0 ! ABSTRACT: 

cS 0035 0! 

a 0036 0! This module contains the specialized logic to service 

ese oth a particular type of request sent by a user to OPCOM. 

ee 0039 0 ! Environment: 

; 0 0040 0! : 

; 641 0041 0: VAX/VMS operating system. 

; 4 0042 0! 

3; § 0045 Q ! Author: 

; Le 0044 ! 

; 6465 0045 : Steven T. Jeffreys 

: 46 B08 QO! 

5 of 0047 0 ! Creation date: 

; «648 0048 0! 

; «649 0049 0! March 10, 1981 

; 0050 0! as 

eae) 0051 0 ! Revision history: 

g 36 B03¢ 0! 

: 5 0053 0! V03-004 CWH3169 CW Hobbs 55-May-1984 

; Beee 0! Second pass for cluster-wide OPCOM: 

ee 055 QO! - Check cluster configuration every time we get a message 

a R026 0! from the connection manager. This is a reasonable approx- 
, OF 0057 0! imation of a configuration change AST. 


i 
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dD 2 
/OBCSCLUMBX 16-Sep-1984 0}: :18 £04 VAX=11 Bliss-32 V4.0-742 2 0 
v04- 14-Sep-1984 12:50:36 DISKSVMSMASTER: COPCOM. SRCICLUMBX. B32: 19 Fay Vv 
; 8 0058 : = Add the NOQUORUM message, it was apparently omitted ; 
3 2B Bo 28 ; up until now. 2 4 ; 
3; 60 CO} boet 0 ' v03-003 cwn5005 CW Hobbs 14-Apr-1984 ; 
; ° p06¢ Fix the case range tc account for the new messages. : 
>; «6646 0064 0! V03-002 CwH3002 Cw Hobbs 12-Apr-1984 3 
3 o? Boee 8 } Make a couple of new messages, delete two old ones. ‘ 
: Of 0067 0! v03-001 Segges CW bs 15-Sep-1983 : 
; & 0068 0! Cut and paste DEVICE BS to be CLUMBX.832. ; 
; & 0069 8 leo ; 
; 007 : 
; oy te ! BEGIN ! Start of CLUMBX : 
oF 0073 1 LIBRARY ‘'SYSSLIBRARY: LIB.L32"; ‘ 
: 74 0074 1 LIBRARY ‘LIB$:OPCOMLIB'; : 
“ee e. 0075 1 ; 
; 76 0076 1 FORWARD ROUTINE : 
.* 0077 1 CLUMBX_HANDLER : NOVALUE; : 
; 0078 1 : 
: 79 0079 1 EXTERNAL thy: : 
; 0080 1 LL ' Allocate a data structure : 
> BI 0081 1 CLUSMSG “Raed, SEND i Send ROCB to remote nodes ; 
: 82 0082 1 cLUSUTIC CONFIGURE, i Check to see who is in the club : 
3. CBS 0083 1 DEALLOCATE ROCB : NOVALUE, ! Dispose of an RQCB . 
; 84 0084 1 P56 FIL ' Put a random string in the log file : 
; @> 0085 1 FORMAT MESSAGE , ‘ pole. a message : 
; & 0086 1 LOG_MESSA ' Log. an event : 
: OF 0087 1 NOTIFY_ iStéD OPERATORS; : ify interested operators $ 
; 0088 1 3 
; 0089 1 EXTERNAL : : 
; 90 0090 1 OCD_VECTOR : VECTOR; ! OCD List heads : 
; | UD 0091 1 3 
: 92 0092 1 EXTERNAL Linco s 
5 93 0093 1 ae CB_K_TYPE ' RQCB structure type 3 
>: «94 0094 1 N_SCOPE ! Minimum scope value : 
: 95 0095 1 MAX” ~SE OPE: ! Maximum scope value : 
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OPCSCLUMBX 42 Page 3 
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44 8 GLOBAL ROUTINE CLUMBX_HANDLER (BUFFER_DESC : $ref_bblock) : NOVALUE = ; 
098 1 I++ ; 

4 Functional description: : 

¢ 10 This routine is the handler for all message of type MSG$_CLUMBX. : 

10 Note that this message has a special format, different from all other : 

10 messages. This is because the message is sent directly from the ‘ 

1° cofinection manager instead of S$SNDOPR. : 


BUFFER_DESC : The address of a quadword buffer descriptor that 
describes the buffer containing the message. 


None. 
: Output: 

None. 
Routine value: 


i 
i 
' 
i 
J 
i 
i 
i 
' 
i 
' 
i 
; Implicit Input: 
i 
i 
i 
J 
i 
' 
i 
i 
None. 


@o 
m 
i) 
a 
2 


! Start of CLUMBX_HANDLER 


MESSAGE_VECTOR : VECTOR (15,LONG], 
MSG : $ b 
RQCB : $ref_bblock, 


Message info 
Pointer to message text 
RQCB data structure 


WN OC OCONOUESWN—OOONOULSWN—"OOONOW 


ocD : $ref—bblock, OCD data structure ; 
OCD_COUNT : LONG, Count of OCDs in OCD List 
OCD~ INDEX : LONG, Index into OCD_VECTOR 
OPER_COUNT : LONG, Count of operators in operator List 
STATOS : LONG; 
See if the message is correct 
MSG = .BUFFER_DESC CDSCS$A_POINTER); 
IF -BUFFER_DESC COSC$W_LENGTH] NEQ CLUMBX$K_LENGTH 
on""5° CCLUMBX$B_DS_VERSION] NEQ CLUMBX$K_DS_VERSION 


rei® CCLUMBX$W_LENGTH] NEQ CLUMBX$K_LENGTH 

RETURN DUMP_LOG_FILE (.BUFFER_DESC, ZASCID ‘CLUMBX message not valid’); 
Run a scan to see if the set of players visible through $GETSYI has changed 
CLUSUTIL_CONFIGURE (); 
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19:06 VAX-11 Bliss-32 V4.0-742 Page 4 
50:36 DISKSVMSMASTER: COPCOM. SRCJCLUMBX.832;1 (2) 
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: «4154 p23 ! The message must be one of the cluster mailbox messag ALL others 

3 V9 154 ! are ignored. Set the message code in the message vector to the 

: 128 Bt 2 } proper value. 

; 138 Bi 2t EASE -MSG CCLUMBX$W_SUBTYPE] FROM 1 TO CLUMBXS$K_ST, QUORUM 

; 160 0159 ET 

: «161 0160 CLUMBXSK_ST_NEWSYS : MESSAGE_VECTOR 3 = OPC$_CLU_NEWSYS; 

: 166 0161 CLUMBXSK_ST_CNX : MESSAGE_VECTOR [0] = OPC$_CLU_CNX; 

; 1 B16 CLUMBX$K_ST_RECNX : MESSAGE _VECTOR [0] = OPCS_CLU_RECNX; 

> 164 016 CLUMBXSK_ST_LOSTCNX : MESSAGE_VECTOR [0] = OPC$_CLU_LOSTCNX; 

s 169 0164 CLUMBXSK_ST_TIMCNX : MESSAGE_VECTOR [0] = OPC$_CLU_TIMCNX; 

; 166 0165 CLUMBXSK_ST_INIFORM : MESSAGE_VECTOR (0) = OPC$_CLU_INIFORM; 

; 167 0166 CLUMBXSK_ST_INIADD : MESSAGE _VECTOR B3 = OPC$_CLU_INIADD; 

s 6368 0167 CLUMBXSK_ST_INIRECNFIG : MESSAGE_VECTOR [0] = OPCS$_CLU_INIRECNFIG; 
: 169 0168 2 CLUMBXSK_ST_MEMREQ : MESSAGE_VECTOR CO] = OPCS$_CLU_MEMREQ; 

: 170 0169 2 CLUMBXS$K_ST_ABORT J : MESSAGE_VECTOR [OJ] = OPC$_CLU_ABORT; 

; (171 0170 2 CLUMBXS$K_ST_ADD J] : MESSAGE_VECTOR [0] = OPC$_CLU_ADD; 

; 4 0171 2 CLUMBXSK_ST_NEWNODE ] : MESSAGE_VECTOR CO] = OPCS$_CLU_ADD; 

: 17 0172 2 CLUMBX$K~ST~DROPNODE J] : MESSAGE-VECTOR [0] = OPC$~CLU_DROPNODE; 

: 174 0173 2 CLUMBXS$K_ST_FORNCLUS J : MESSAGE_VECTOR CO] = OPCS$_CLU_FORNCLUS; 

s 75 0174 2 CLUMBXS$K_ST_INQUORUM J : MESSAGE_VECTOR (CO) = OPC$_CLU_INQUORUM; 

: 176 0175 2 CLUMBX$K_ST_LOSTDISK J : MESSAGE_VECTOR CO) = OPC$_CLU_LOSTDISK; 

: 177 0176 2 CLUMBXS$K_ST_GAINDISK i : MESSAGE_VECTOR CO] = OPC$_CLU_GAINDISK; 

: 178 0177 2 CLUMBXSK_ST_DISKRDERR : MESSAGE _VECTOR [CO] = OPCS$_CLU_DISKRDERR; 
: 179 0178 2 CLUMBXSK_ST_DISKWRERR J : MESSAGE_VECTOR CO) = OPC$_CLU_DISKWRERR; 
: 180 0179 2 CLUMBX$K_ST_DISKINVD J : MESSAGE-VECTOR CO) = OPCSCLUDISKINVDAT; 
; «(181 0180 2 f CLUMBXSK_ST_DISKTIMEOUT J] : MESSAGE_VECTOR (CO) = OPC$_CLU_DISKTIMEOUT; 
3 We 0181 2 CLUMBX$K_ST_LOSTMSG J : MESSAGE VECTOR CO) = OPCS$_CLU_LOSTMSG; 

; 183 0182 2 C CLUMBXS$K_ST_NOQUORUM J : MESSAGE_VECTOR CO] = OPC$_CLU_NOQUORUM; 

> (184 0183 2 C CLUMBXS$K_ST_FORNDISK J : MESSAGE_VECTOR CO] = OPC$_CLU_FORNDISK; 

; 185 0184 2 C CLUMBXSK_ST_COMPLETE J : MESSAGE_VECTOR CO] = OPC$_CLU_COMPLETE; 

; 186 0185 2 {C CLUMBX$K_ST_ QUORUM J : MESSAGE VECTOR [CO] = OPC$_CLU_QUORUM; 

: 4 4 O1s6 $ £  LNRANGE « OUTRANGE J : RETURN DUMP_LOG_FILE (.BUFFER DESC, ZASCID "CLUMBX message subtype not v| 
; «189 0188 2! ; 

: 190 0189 2 ! To put additional stress on the system, request acks from every node. Make 
; i 0190 § ! all this noise switchable by defining the logical name OPCSACK (presence of 
: 136 Bigs § the name is significant, not its value). 

: 194 L 0198 2 ZIF XVARIANT GTR 0 ! Only include if /VARIANT specified 
: «195 U 0194 2 XTHEN 

; 196 U 0195 2 BEGIN 

; 197 U 0196 § LOCAL lcl_buf : Sbvector [16], out dsc : VECTOR (2, LONG); 
; 198 U 019 EXTERNAL lcl=csid, nod_head : vector [2, long]; 

3 199 U 0198 EXTERNAL ROUTINE cluSmsg_ack_please; 

: 200 U 0199 out_dsc [0] = 16; out_dsc (1) = Lcl_buf; 

: 201 U 0200 IF Strniog (lLognam=ZASCID "OPCSACK'> rsllen=out_dsc, rslbuf=out_dsc) EQL ss$_normal 
; soe U 0201 THEN 

: 20 U b508 BEGIN 

; Soe U 020 LOCAL nod : $ref_bblock; 

: 205 U 0204 nod = .nod_head ; 

; 206 u 0 83 WHILE .nod™NEQ nod_head (0) 

$ it u 0 $ 0 

: 208 U 020 BEGIN : ‘ 

; 209 U 0208 IF .nod Cnod_l_node_csid] NEQ .icl_csid 

; 210 U 0209 THEN 
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704 VAX-11 Bliss-32 


ty © 

eCUsmSe “xtr® *PLE 
nod = .nod Cnod_l_flink]; 
END 


kepend? = fs 


END; 
irl ! End of conditionally compiled message codes. 
Allocate an RQCB. This is necessary to format and later issue the message. 
- NOT ALLOCATE_DS (RQCB_*_TYPE, RQCB) 
RETURN; 


Set the operator interest mask so that cluster operators will find it 


Now actually format it 

FORMAT _MESSAGE (.RQCB, MESSAGE_VECTOR); 

If desired, send it to remote nodes 

IF .MSG CCLUMBX$V_BRDCSTJ 

CLUSMSG_ROCB_SEND (-1, CLM__CLUMBX, .RQCB); ! Send it everywhere 
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— “4 


' 

i Log the message, and send it to all interested operators. 
Every operator in the data base is a candidate for the message. 
OCD_INDEX = MAX_SCOPE; 

WHITE <0 cD. INDEX GEQ MIN_SCOPE) DO 


2 
Sep-1984 01:19 V4.0-762 Pa 
Eee Fee Tb ta 8s etal et eRe Mb on Secacuumex.e32642* 


' 

' 

ROcB CRQCB_L_ATTNMASK1] = OPCSM_NM_CLUSTER; 

Format the message, then send it to everyone else in the cluster 

MESSAGE VECTOR C1] = 0; ! Use current system time for header 
MESSAGE _ “VECTOR C2) = MSG CCLUMBX$Q_TIME); ! Put the event time in the message 
Move information for local system 

MESSAGE VECTOR (3) = Ph ae CCLUMBX$T_NODENAME L1)<0, 8,0>; ! Get ASCIC Length of nodename 
MESSAGE_VECTOR (4) = MSG CCLUMBX$T_NODENAME _L ! Pass address of nodename 

MESSAGE _VECTOR (5] = Mens CLUMBXSB._ SYSTENTD “ul . "4)<0, 16,0>; ! High word of system id 
MESSAGE_VECTOR (6) = .(MSG CCLUMBX$B~ Hs he wos ' Low longword of system id 

MESSAGE _ “VECTOR (7) = :MSG CCLUMBX$L_CSID_LJ; ' Cluster system id of system 

Move information for remote system 

MESSAGE VECTOR (8) = .(MSG CCLUMBX$T ey RI) <0, 8,0>; ' Get ASCIC Length of nodename 
MESSAGE_VECTOR (9) = MSG CCLUMBX$T NODEN 13 ! Pass address of nodename 
MESSAGE_VECTOR [10] = .(MSG CLUMBISB_ SVSTERID RJ + 4)<0,16,0>; ! High word of system id 
MESSAGE_VECTOR [11] = .(MSG CCLUMBX$B-SYSTEMID_RJ); ' Low longword of system id 

MESSAGE _ “VECTOR £12) = .MSG CCLUMBXS$L USID_ Rs ! Cluster system id of system 
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: 268 8 67 ! 

3 +4 os ; Scan the OCD List for each class of operator. 

3 71 8 70 ocd oe -OCD_V it v3 he OCD_ ire - 1) * 241); 

; if 0271 OCD™= .OCD_VECTOR Fe ee * 2); 

; ef 0 if WHILE (, OCB_CO UNT 6 GTR 0)~ 

: 274 0273 4 BEGIN 

: e275 0274 & ' 

; 276 0275 4 i ety | every operator in the OCD's h aperener list. 

; sit 8 6 ? ; Also log the message for each 0 

: 279 0278 4 RQCB CROCB_L_OCD] = .OCD; ' Set OCD address 

3 $80 0379 4 LOG_MESSAGE Tf. : ! Log the message 

; 281 0280 4 id LISTED "OPERATORS (.RQCB); i orm the operators 
3 soe 0281 4 NT = T- 1; ' Decrement operator count 
; 2 HY 4 .OCD COCD _C_FLINKI; ' Get next OCD address 
3: 284 tH : ot: 

> 285 0284 ocy fis = .OCD_INDEX = 1; 

; 286 0285 2 END; 

3 eer 0286 2! 

; 288 0287 ! Free the racb 

; 289 0288 ! 

; 290 0289 DEALLOCATE_RQCB (.RQCB); 

; 291 0290 RETURN; 

5 $36 0291 

i 0292 1 END; ! End of CLUMBX_HANDLER 


-TITLE OPCSCLUMBX 
-IDENT \v04-000\ 


-PSECT S$PLITS,NOWRT,NOEXE ,2 


Bee ee Be Se Se Se Se ee Be Se Se SH Se See Se Se ae SH Se Se Se Se Se ae P- we BeBe Se Se ee Se Se Se Se Se ee SHS Se Se Se Se Se Se ee Se Sean HSH Se Se ae oe 


20 65 67 61 73 73 65 6D 20 58 42 4D 55 4C 43 00000 P.AAB: .ASCII \CLUMBX message not valid\ : 
64 69 6C 61 76 20 74 6F 6E Q000F 3 
010E0018 00018 P.AAA: renee 3 
00000000° 0001C “ADDRESS P.AAB ; 3 
20 65 67 61 73 73 65 6D 20 58 42 4D 55 4C 43 00020 P.AAD: ASCII  \CLUMBX message subtype not valid\ 3 | 
6C 61 76 20 74 6F 6€ 20 65 70 79 74 62 75 73 rH : 
64 69 O0035E : 
010E0020 00040 P.AAC: .LONG 17694752 ; 
00000000" 00044 -ADDRESS P.AAD s 
-EXTRN ALLOCATE_DS, CLUSMSG_RQCB_SEND 
~EXTRN CLUSUTIL” CONFIGURE 
-EXTRN DEAL Less ATE_RQCB 
~EXTRN DUMP G_FILE, FORMAT_MESSAGE 
-EXTRN LOG PMESSRGE QOliey LISTED_OPERATORS 
-EXTRN OCD-VECTOR, TYPE 
-EXTRN MIN -SCOPE, MAX _SCOPE 
-PSECT S$CODES,NOWRT,2 
003C 00000 -ENTRY CLUMBX_HANDLER, Save R2,R3,R4,R5 ; 0096 | 
f CO AE 9€E 00002 MOVAB <-64(SPJ, 3 | 
5 04 AC 00 00006 MOVL SUFFER. bESC, R3 ; 0140 
52 04 A3 DO OOOOA MOVL 4(R3),°M ; 
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0000G CF 


1179, MESSAGE_VECTOR 
1187, MESSAGE_VECTOR 
1195, MESSAGE_VECTOR 
1203, MESSAGE_VECTOR 


AE 000582DB 
AE 000582E3 


C4 


: 0160. 
: 0161 


04 


AE 000582EB" 
AE 000582F3 
AE 000582FB 
AE 00058303 


04 


04 


, MESSAGE_VECTOR 
, MESSAGE_VECTOR 
, MESSAGE_VECTOR 


04 


61219 
61227 


04 
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AE 00058313 
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76 11 000C BRB 33$ : | ; 
04 AE 00058318 f 06 aB¢7 14$: MOVL #361243, MESSAGE _VECTOR ; 0168 ; 
04 AE 00058323 f b0 000) 15$: MOVL #361251, MESSAGE_VECTOR : 0169 ; 
04 AE 00058328 f 06 008 16$: MOVL #361259, MESSAGE_VECTOR > 0171) : 
04 AE 00058333 BF 06 OOES 178: MOVL #361267, MESSAGE_VECTOR : 0172, : 
04 AE 00058338 ef D0 QOOEF 18$:  MOVL #361275, MESSAGE_VECTOR : 0173, 3 
6 11 OOOF7 19$: BRB 43$ : | : 
04 AE 00058343 gf b0 OOF O$: MOVL #361283, MESSAGE _VECTOR 3 0174) ‘ 
04 AE 00058348 8F 00 00103 8: MOVL § #361291, MESSAGE_VECTOR > 0175) ; 
b2 11 00108 23$: BRB 43$ : ; 
04 AE 00058353 8F DO 0010D 24$:  MOVL #361299, MESSAGE_VECTOR > 0176) : 
58 1100115 25$: BRB 43$ : ; 
04 AE 00058358 8F DO 00117 26$:  MOVL #361307, MESSAGE_VECTOR > 0177) ; 
4E 11 OO11F 27$: BRB 43$ ; 
04 AE 00058363 8F DO 00121 28%:  MOVL #$#361315, MESSAGE_VECTOR > 0178 | 
44 11 00129 29$: BRB 43$ : 
04 AE 00058368 8F DO 001 : O$: MOVL #361323, MESSAGE_VECTOR : 0179 
3A 11 001 313: BRB 43$ : 
04 AE 00058373 BF 00 00135 8: MOVL #361331, MESSAGE_VECTOR > 0180 | 
30 11 00130 33$: BRB 43$ : 
04 AE 00058378 8F DO 0013F 348: MOVL #361339, MESSAGE_VECTOR : 0181. 
26 11 00147 35$: BRB 43$ : | 
04 AE 00058383 8F D0 00149 36$:  MOVL #361347, MESSAGE_VECTOR ; 0182, 
1¢ 11 00151 37$: BRB 43$ : : | 
04 AE 00058388 8F 00 00153 38$:  MOVL #361355, MESSAGE_VECTOR > 0183 | 
12 11 00158 39$: BRB 43$ ; 
04 AE 00058393 8F 00 0015D 40$:  MOVL #361363, MESSAGE_VECTOR ; 0186 | 
08 1100165 41$: BRB 43$ ; 
04 AE 00058398 8F D0 00167 gs: MOVL §§ #361371, MESSAGE_VECTOR ; 0185 | 
5E DD OO16F 43$:  PUSHL SP ; 0222 
000000006 8F DD 00171 PUSHL #ROQCB_K_TYPE ; 
0000G CF oe FB 00177 CALLS #2, ACLOCATE_DS 3 
01 0 €8 0017C BLBS RO, 44$ : 
04 0017F RET pane 
53 6E D0 00180 44$:  MOVL  RQCB, R3 ; 0228 
sc AS 80 BF 9A 0018 MOVZBL #128. 92(R3) pad 
08 AE D4 00188 CLRL_  MESSAGE_VECTOR+4 ; 0232 | 
Oc AE 40 Ad 9E 00188 MOVAB 64(R2), MESSAGE _VECTOR+8 > 0233 | 
10 AE 14 Ag 9A 0190 MOVZBL gO(Mscs MESSAGE VECTOR+12 : 0337 | 
14 AE 15 Ad 9E 00195 MOVAB  21(R2), MESSAGE VECTOR+16 > 0238 | 
18 AE 10 A2 3C O019A MOVZWL Tenses, MESSAGE_VECTOR+20 ; 0239 | 
1C AE oC A d9 019F MOVL  12(MSG), MESSAGE-VECTOR+24 ; 0240 
30 AE 08 A2 D OO1A4 MOVL 8(MSG), MESSAGE QECTOR+2 : 0241 | 
4 AE 0 A2 9A 001A9 MOVZBL 48(MSGS, MESSAGE VECTOR+32 : 0245 | 
8 AE 31 Ad OE OO1Ag MOVAB 49(R2), MESSAGE VECTOR+36 : 0246 
C AE 2¢ «Ad «3C 0018 MOVZWL 44(MSGS, MESSAGE VECTOR+40 : 0247 
0 AE 8 A2 DO 00188 MOVL 40(MSG), MESSAGE-VECTOR+44 > 0248 | 
4 AE 4 Ae 00 001BD MOVL  36(MSG), MESSAGE _VECTOR+48 ; 0249 | 
4 Ag OF oie PUSHAB Rig SAGE VECTOR ; 0253 | 
53 pd 001C PUSHL ; 
00006 cf 03 FB O01¢7 CALLS #2, FORMAT_MESSAGE ; 
C 05 A2 €9 OOICC BLBC ©5(MSG), 458 : 0257 | 


kK 2 

OPCSCLUMBX 16-Sep-1984 01:19:04 VAX-11 Bliss-32 V4.0-742 Page 9. 
v04-600 ba aets 1 9338596 DISKSVMSMASTER:COPCOM. SRCICLUMBX.B32:1" (2). 
53 OD 9100 PUSHL 3 : 0259, 
6 DD 0010 PUSHL # : 
7E 1 CE 00104 MNEGL #1, <(SP) : 
00006 cf 3 FB 107 CALLS #3, CLUSMSG_RQCB_SEND : 
2 000000006 BF »D 106 45$:  MOVL #MAX_SCOPE,~OCD_INDEX + 0264 | 
000000006 &F 2 01 OIE 46$: CMPL OCD INDEX, #MIN=SCOPE + 0265 | 
19 OO1EA BLSS 49$ : 
50 5 17 OiEC ASHL #1, OCD_INDEX, RO + 0270) 
5 0000GCF40 p iF MOVL  OCB_VECTOR-4CROJ, OCD_COUNT : 
50 5 01 16 ASHL #1, 70C INDEX R : 0271) 
54 QOOOGCF40 DO OO1FA MOVL OCE_VECTOR-8CROJ, OCD : 
55 D5 00 09 47$:  TSTL O¢D-COUNT : 0272! 
19 15 00 BLE ; | 
24 «AB 54 D0 00204 MOVL OCD, 36(R3) : 0278 
53 DD 00208 PUSHL + 0279 

00006 CF 04 FB 00 OA CALLS #1, LOG_MESSAGE : 
3 DD 0020F PUSHL R3 + 0280 

00006 CF 01 FB 00211 CALLS #1, NOTIFY_LISTED_OPERATORS : 
55 D7 00216 ECL 0Cb_CO + 0281 
54 64 DO 00218 MOVL (OCB), OCD : 0282 
E3 11 00218 BRB 47$ + 0272 
2 D7 0021D 48$:  DECL OCD_INDEX > 0284 
ce 11 O0021F BRB 46$ + 0265 
53 DD 00221 49$:  PUSHL R3 + 0289 

00006 CF 01 FB 00223 CALLS #1, DEALLOCATE_RQCB : 
04 00228 RET + 0292 


; Routine Size: 553 bytes, Routine Base: $CODE$ + 9000 


3 Elapsed Time: 09:46 -5 
3; Lines/CPU Min: 1360 

3 Lexemes/CPU-Min: 14591 

; penery Used: 139 pages 
; Compila 


2 

18-Sep-1984 91:19: 4 VAX-11 Biisse 32 V4.0-742 Pa age 10° 

14-Sep-1984 12:50:36 DISKSVMSMASTER: COPCOM. SRCICLUMBX.B32;1 (3). 
1 END ! End of CLUMBX $ 
0 ELUDOM é 
: PSECT SUMMARY | 
; Name Bytes Attributes | ; 
: $PLITS 72 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) | ; 
; SCODES 55 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
| : 
é 
; Library Statistics ; 
2 epee a ee ee, Syabelg scnnncss Pages Processing | ; 
3 File Total Loaded Percent Mapped Time : 
: _$255$DUA28: :ESYSLIBILIB-L32;1 18619 29 0 1000 00:01.9 | ; 
3 ~$255$DUA28: COPCOM.OBJJOPCOMLIB.L32;1 633 44 6 43 00:00.8 | : 
| ; 
: COMMAND QUALIFIERS | : 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:CLUMBX/OBJ=0BJ$:CLUMBX MSRC$:CLUMBX/UPDATE=(ENH$: CLUMBX) | 2 
; Btaes 553 code + 72 data bytes | ; 
; Time: 0 : 


tion Complete 
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